home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
GSETDP.for
< prev
next >
Wrap
Text File
|
1991-04-13
|
440b
|
23 lines
SUBROUTINE GSETDP(ANGLE,XSCALE,YSCALE,XTRAN,YTRAN)
IMPLICIT NONE
REAL*4 RAD
C
C
INCLUDE DIGLIB$KOM:GCDPRM.PRM
INCLUDE DIGLIB$KOM:PIODEF.PRM
C
C SET SCALE AND TRANSLATION FACTORS
C
XS = XSCALE
YS = YSCALE
XT = XTRAN
YT = YTRAN
C
C SET ROTATION FACTORS
C
RAD = -ANGLE*PIO180
RCOS = COS(RAD)
RSIN = SIN(RAD)
RETURN
END